var a,b: VectorInt;
c: TDoubleArray;
begin
c := TDoubleArray.Create(1,1,1,1,1);
TVecInt(a).CopyFromArray(c);
TVecInt(a).Copy(b);
if a = b then ERaise('a and b are equal!');
if a = 1 then ERaise('a equals 1!'); //compare to real valueif a = Cplx(1,0) then ERaise('a equals 1!'); //compare to complex value
end;